(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     29092,        595]
NotebookOptionsPosition[     27791,        553]
NotebookOutlinePosition[     28246,        570]
CellTagsIndexPosition[     28203,        567]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Spring", "Section",
 CellChangeTimes->{{3.52260439790625*^9, 3.522604398390625*^9}, 
   3.632745651760815*^9, {3.6439582433841906`*^9, 3.643958248042457*^9}}],

Cell[BoxData[
 RowBox[{"<<", "C:\\\\Hopsan\\Compgen\\CompgenNG.mx"}]], "Input",
 CellChangeTimes->{{3.5772037650720577`*^9, 3.5772037650780582`*^9}, {
  3.611474457184202*^9, 3.611474523938877*^9}, {3.6114745588913717`*^9, 
  3.61147456057154*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"path", "=", 
   RowBox[{"ToFileName", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<C:\>\"", ",", "\"\<HopsanTrunk\>\"", ",", 
      "\"\<ComponentLibraries\>\"", ",", "\"\<defaultLibrary\>\"", ",", 
      "\"\<Mechanic\>\"", ",", "\"\<Linear\>\""}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5757727777685804`*^9, 3.575772792541806*^9}, {
   3.5757728423954945`*^9, 3.5757728498367076`*^9}, {3.57577333888545*^9, 
   3.5757733706315055`*^9}, 3.5757734316206255`*^9, 3.6031909973287797`*^9, 
   3.6057717887213297`*^9, {3.605771829393656*^9, 3.605771830929744*^9}, 
   3.6058530990363216`*^9, {3.621138851005574*^9, 3.621138863716845*^9}, {
   3.626686112671085*^9, 3.6266861209310846`*^9}, {3.6273758738899097`*^9, 
   3.627375907312579*^9}, {3.6278060251438417`*^9, 3.627806031567667*^9}, {
   3.6439575746219397`*^9, 3.643957575640998*^9}}],

Cell["Linear spring implemented using bilateral delay lines.", "Text",
 CellChangeTimes->{{3.6327763221227007`*^9, 3.632776327868029*^9}, {
  3.6327771299759073`*^9, 3.6327771407735248`*^9}, {3.664857066112897*^9, 
  3.6648570761774473`*^9}, {3.6697053423967853`*^9, 3.669705367115779*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ResetComponentVariables", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"domain", "=", "\"\<Mechanic\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"displayName", "=", "\"\<Spring\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"brief", "=", "\"\<Linear spring\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"componentType", "=", "\"\<ComponentC\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"author", "=", "\"\<Petter Krus <petter.krus@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coauthor", "=", "\"\<Peter Nordin <peter.nordin@liu.se>\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
  "affiliation", " ", "=", " ", 
   "\"\<Division of Fluid and Mechatronic Systems, Link\[ODoubleDot]ping \
University\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetFilenames", "[", 
   RowBox[{"path", ",", "domain", ",", "displayName"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Date", "[", "]"}]}], "Input",
 CellChangeTimes->{{3.5137112151875*^9, 3.513711217109375*^9}, {
   3.51378596903125*^9, 3.513785980671875*^9}, 3.515394539753217*^9, {
   3.515775693875*^9, 3.5157757050625*^9}, {3.517048046727305*^9, 
   3.51704806093043*^9}, 3.51707206725*^9, {3.5176530686834764`*^9, 
   3.51765311057437*^9}, {3.517673126703125*^9, 3.517673126796875*^9}, {
   3.5177214423487377`*^9, 3.517721453114225*^9}, {3.5177222281793466`*^9, 
   3.517722236008023*^9}, {3.5192815953125*^9, 3.5192816093125*^9}, {
   3.5209603410625*^9, 3.52096034128125*^9}, {3.54985636715625*^9, 
   3.5498563754375*^9}, 3.5758034074886527`*^9, {3.6065788085193233`*^9, 
   3.606578811761509*^9}, 3.612446592273651*^9, {3.6327456582711873`*^9, 
   3.632745671287932*^9}, 3.632746018513792*^9, {3.643957245891137*^9, 
   3.643957266445313*^9}, {3.6698124198317842`*^9, 3.6698124245361423`*^9}, {
   3.669812534523258*^9, 3.669812538087535*^9}, {3.6698125813713355`*^9, 
   3.6698126548666463`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2016", ",", "4", ",", "18", ",", "9", ",", "3", ",", 
   "16.3434713`8.965919250244795"}], "}"}]], "Output",
 CellChangeTimes->{
  3.627806244144229*^9, 3.62780656199576*^9, {3.6327460254781904`*^9, 
   3.6327460502786093`*^9}, 3.6327470289795876`*^9, 3.632747183495425*^9, 
   3.632747830830451*^9, 3.638778953571004*^9, 3.6387860451981144`*^9, 
   3.638786122541848*^9, 3.6439534722159452`*^9, 3.6439535108161526`*^9, {
   3.643957570451701*^9, 3.643957598597311*^9}, 3.6439582227350097`*^9, {
   3.6439582573299885`*^9, 3.643958276225069*^9}, 3.6439584669929805`*^9, 
   3.643958501054929*^9, 3.643958651732547*^9, 3.643958683731377*^9, 
   3.6439590850683327`*^9, 3.6439591579905033`*^9, 3.6506184086046553`*^9, 
   3.669635412795065*^9, 3.6696354690186644`*^9, 3.6696362141856503`*^9, 
   3.669636324986804*^9, 3.6696365945702477`*^9, 3.669703424670268*^9, 
   3.6697036673432627`*^9, {3.6697041022824287`*^9, 3.669704115082757*^9}, 
   3.669704530705017*^9, 3.669704812267116*^9, 3.6697052384370856`*^9, 
   3.6698124287937584`*^9, 3.6698124962825823`*^9, 3.669812551797247*^9, 
   3.6698125858265758`*^9, 3.6698126214244223`*^9, 3.669812659035285*^9, 
   3.6699501659959974`*^9, 3.669950409845456*^9, 3.6699506136495886`*^9, 
   3.6699506900264626`*^9, {3.669950929558838*^9, 3.669950950017367*^9}, 
   3.6699517964105177`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"inputParameters", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "Ks", ",", "100.", ",", "double", ",", "\"\<N/m\>\"", ",", 
       "\"\<Spring constant\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "x0", ",", "0.", ",", "double", ",", "\"\<m\>\"", ",", 
       "\"\<free length of spring\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "eps", ",", "0.005", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<Num drift remove coeff\>\""}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
      "alpha", ",", "0.05", ",", "double", ",", "\"\<\>\"", ",", 
       "\"\<numerical damping\>\""}], "}"}]}], "\[IndentingNewLine]", "}"}]}],
   ";"}]], "Input",
 CellChangeTimes->{{3.519318796546875*^9, 3.519318804953125*^9}, {
   3.54978019078125*^9, 3.549780199734375*^9}, 3.54985607496875*^9, {
   3.549856275109375*^9, 3.549856289484375*^9}, {3.571932894868863*^9, 
   3.571932896694066*^9}, {3.632745681904539*^9, 3.6327457339315147`*^9}, {
   3.632745790773766*^9, 3.6327458590546713`*^9}, 3.6327460427961807`*^9, {
   3.63274779059715*^9, 3.632747809787247*^9}, {3.638769452511527*^9, 
   3.638769453327527*^9}, {3.638786000117607*^9, 3.638786000742669*^9}, {
   3.643957316412171*^9, 3.6439573467759075`*^9}, {3.643958636877697*^9, 
   3.643958638185772*^9}, {3.643958675329897*^9, 3.6439586782330627`*^9}, {
   3.650618399307726*^9, 3.6506184049882936`*^9}, {3.669635885198977*^9, 
   3.6696359106618958`*^9}, {3.6696361554863377`*^9, 3.669636210238676*^9}, 
   3.6696363405415354`*^9, {3.6697052179659243`*^9, 3.669705222068923*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pi", "=", 
   RowBox[{"N", "[", 
    RowBox[{"Pi", ",", "6"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6327459017831154`*^9, 3.6327459110666466`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fak", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.669812484744151*^9, 3.6698124873142405`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"initialExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fak", "==", 
      FractionBox["1", 
       RowBox[{"1", "-", "alpha"}]]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zexpr", "\[Equal]", 
      RowBox[{"Ks", " ", "fak", " ", "mTimestep"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cm1", "\[Equal]", 
      RowBox[{
       RowBox[{"Ks", " ", 
        RowBox[{"(", 
         RowBox[{"xm1", "+", "xm2", "-", "x0"}], ")"}]}], "-", 
       RowBox[{"Zexpr", " ", "vm1"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cm2", "\[Equal]", 
      RowBox[{
       RowBox[{"Ks", " ", 
        RowBox[{"(", 
         RowBox[{"xm1", "+", "xm2", "-", "x0"}], ")"}]}], "-", 
       RowBox[{"Zexpr", " ", "vm2"}]}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cm1f", "\[Equal]", "fm1"}], ",", "\[IndentingNewLine]", 
     RowBox[{"cm2f", "\[Equal]", "fm2"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.519281698359375*^9, 3.5192817149375*^9}, {
   3.5719328762892303`*^9, 3.571932891156057*^9}, {3.627806535651013*^9, 
   3.62780653611104*^9}, 3.62780657814986*^9, 3.632747100619685*^9, 
   3.632747155137803*^9, {3.6439573528372545`*^9, 3.643957435578987*^9}, {
   3.6439584428005967`*^9, 3.643958452112129*^9}, {3.6693690022309833`*^9, 
   3.669369002356072*^9}, {3.6696354583190026`*^9, 3.6696354597582164`*^9}, {
   3.66970476179659*^9, 3.6697047822115235`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"nodeConnections", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"MechanicCnode", "[", 
      RowBox[{"m1", ",", "0.", ",", "\"\<mechanical node 1\>\""}], "]"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"MechanicCnode", "[", 
      RowBox[{"m2", ",", "0.", ",", "\"\<mechanical node 2\>\""}], "]"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.519281679328125*^9, 3.519281686671875*^9}, {
  3.51931795584375*^9, 3.519318001453125*^9}, {3.519318130546875*^9, 
  3.519318136109375*^9}, {3.643957456930208*^9, 3.6439574745222144`*^9}, {
  3.6439582159286203`*^9, 3.64395821766772*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"localExpressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"fak", "==", 
      FractionBox["1", 
       RowBox[{"1", "-", "alpha"}]]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zexpr", "\[Equal]", 
      RowBox[{"Ks", " ", "fak", " ", "mTimestep"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cm10", "==", 
      RowBox[{"cm2", "+", 
       RowBox[{"2", " ", "Zexpr", " ", "vm2"}]}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"cm20", "==", 
      RowBox[{"cm1", "+", 
       RowBox[{"2", " ", "Zexpr", " ", "vm1"}]}]}]}], "\[IndentingNewLine]", 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818175265625*^9, 3.51681819540625*^9}, {
   3.516818378453125*^9, 3.516818390015625*^9}, {3.5192897721875*^9, 
   3.51928977840625*^9}, {3.519317548234375*^9, 3.51931754925*^9}, {
   3.51931775690625*^9, 3.51931776296875*^9}, {3.571932929937725*^9, 
   3.5719329376597385`*^9}, {3.632746964701911*^9, 3.632747000511959*^9}, {
   3.6439574809695835`*^9, 3.6439574994366393`*^9}, {3.643958422610442*^9, 
   3.643958424176532*^9}, {3.6439584973737183`*^9, 3.643958498820801*^9}, {
   3.6439590789539824`*^9, 3.6439590794130087`*^9}, 3.669635462886672*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"expressions", "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cm1f", "==", 
      RowBox[{
       RowBox[{"alpha", " ", "cm1f"}], " ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}], " ", "cm10"}], "-", 
       RowBox[{"eps", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"(", 
            RowBox[{"fm1", "+", "fm2"}], ")"}], "2"], "-", 
          RowBox[{"Ks", " ", 
           RowBox[{"(", 
            RowBox[{"xm1", "+", "xm2", "-", "x0"}], ")"}]}]}], ")"}]}]}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"cm2f", "==", 
      RowBox[{
       RowBox[{"alpha", " ", "cm2f"}], " ", "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "alpha"}], ")"}], " ", "cm20"}], "-", 
       RowBox[{"eps", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"(", 
            RowBox[{"fm1", "+", "fm2"}], ")"}], "2"], "-", 
          RowBox[{"Ks", " ", 
           RowBox[{"(", 
            RowBox[{"xm1", "+", "xm2", "-", "x0"}], ")"}]}]}], ")"}]}]}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"cm1", "==", "cm1f"}], ",", "\[IndentingNewLine]", 
     RowBox[{"cm2", "==", "cm2f"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcm1", "==", "Zexpr"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Zcm2", "==", "Zexpr"}]}], "\[IndentingNewLine]", "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.47858332371875*^9, 3.478583443984375*^9}, {
   3.478596512125*^9, 3.478596630296875*^9}, {3.47859673825*^9, 
   3.4785967756875*^9}, {3.478596964234375*^9, 3.478596992640625*^9}, 
   3.478597029796875*^9, {3.478600289875*^9, 3.47860030565625*^9}, {
   3.51582105284556*^9, 3.51582105678306*^9}, {3.5159004728175173`*^9, 
   3.515900475551874*^9}, {3.5159009659499717`*^9, 3.515900975043605*^9}, {
   3.5159024812862654`*^9, 3.5159025043018904`*^9}, {3.5167064051243*^9, 
   3.516706412796175*^9}, {3.516818200453125*^9, 3.5168182011875*^9}, {
   3.516818238359375*^9, 3.5168182486875*^9}, {3.51681829715625*^9, 
   3.516818360484375*^9}, 3.516818397609375*^9, {3.519289677296875*^9, 
   3.519289711046875*^9}, {3.5193175181875*^9, 3.5193175199375*^9}, {
   3.519317920234375*^9, 3.519317921890625*^9}, {3.571932940186943*^9, 
   3.57193295539697*^9}, {3.6439575035658755`*^9, 3.6439575176236796`*^9}, {
   3.6696353862774186`*^9, 3.669635389630675*^9}, {3.6696359847442102`*^9, 
   3.6696360985605297`*^9}, {3.66963630703985*^9, 3.6696363199909534`*^9}, {
   3.6696365592618957`*^9, 3.6696365829831038`*^9}, {3.669703340382668*^9, 
   3.669703369115065*^9}, {3.6697034106683064`*^9, 3.66970341503642*^9}, {
   3.669703654715293*^9, 3.6697036580736933`*^9}, {3.6697040816007676`*^9, 
   3.669704097745247*^9}, {3.6697046840561924`*^9, 3.669704685763714*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Compgen", "[", "file", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "cntsList"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"modelobject\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", \
RowBox[{\\\"\\\\\\\"icon\\\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"\\\\\\\"isopath\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"MechanicSpring.svg\\\\\\\"\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"iconrotation\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"ON\
\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"userpath\\\\\\\"\\\", \\\"\
\[Rule]\\\", \\\"\\\\\\\"MechanicSpring.svg\\\\\\\"\\\"}]}], \\\"}\\\"}], \
\\\",\\\", RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}], \\\",\\\", RowBox[{\
\\\"XMLElement\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"portpositions\\\\\\\"\\\", \
\\\",\\\", RowBox[{\\\"{\\\", \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"XMLElement\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"portpose\\\
\\\\\"\\\", \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"x\\\\\\\
\"\\\", \\\"\[Rule]\\\", \\\"\\\\\\\"0\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\
\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \\\"0.3333333333333333`\\\"}], \
\\\",\\\", RowBox[{\\\"\\\\\\\"a\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"0\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"name\\\\\\\"\\\", \
\\\"\[Rule]\\\", \\\"\\\\\\\"Pm1\\\\\\\"\\\"}]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}], \\\",\\\", \
RowBox[{\\\"XMLElement\\\", \\\"[\\\", RowBox[{\\\"\\\\\\\"portpose\\\\\\\"\\\
\", \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\\\\\\\"x\\\\\\\"\\\", \
\\\"\[Rule]\\\", \\\"\\\\\\\"0\\\\\\\"\\\"}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", RowBox[{\\\"\
\[LeftSkeleton]\\\", \\\"19\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", \
RowBox[{\\\"\\\\\\\"a\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"\\\\\\\"0\\\\\\\"\\\"}], \\\",\\\", RowBox[{\\\"\\\\\\\"name\\\\\\\"\\\", \
\\\"\[Rule]\\\", \\\"\\\\\\\"Pm2\\\\\\\"\\\"}]}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", \\\"}\\\"}]}], \\\"]\\\"}]}], \\\"}\\\"}]}], \
\\\"]\\\"}]}], \\\"}\\\"}]}], \\\"]\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}]\\)\[NoBreak] is not a list of contents. The third item \
in an XMLElement must be a list of contents, even if it is an empty list. \\!\
\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::cntsList\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.669951797478285*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.669951797567348*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], \
"\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"0.3333333333333333`\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"0.3333333333333333`\\\"}]\\)\[NoBreak] is not a valid value for an \
attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.6699517976494055`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.6699517977344666`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"XMLElement", "::", "attrhs"}], "MessageName"], 
  RowBox[{
  ":", " "}], \
"\<\"\[NoBreak]\\!\\(\\*RowBox[{\\\"0.6666666666666666`\\\"}]\\)\[NoBreak] in \
\[NoBreak]\\!\\(\\*RowBox[{\\\"\\\\\\\"y\\\\\\\"\\\", \\\"\[Rule]\\\", \
\\\"0.6666666666666666`\\\"}]\\)\[NoBreak] is not a valid value for an \
attribute in an XMLElement. The value of the attribute must be a string. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/XMLElement\\\", ButtonNote -> \
\\\"XMLElement::attrhs\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.669951797823531*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Export", "::", "autofix"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Malformed symbolic XML expression encountered. This may \
result in unexpected XML data. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/Export\\\", ButtonNote -> \\\"Export::autofix\\\"]\
\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.6699517979095945`*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"General", "::", "stop"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Further output of \
\[NoBreak]\\!\\(\\*StyleBox[RowBox[{\\\"Export\\\", \\\"::\\\", \\\"autofix\\\
\"}], \\\"MessageName\\\"]\\)\[NoBreak] will be suppressed during this \
calculation. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/General/stop\\\", ButtonNote -> \
\\\"General::stop\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{
  3.638778953765023*^9, 3.63878604535413*^9, 3.6387861231279063`*^9, 
   3.6439534723659534`*^9, 3.6439535114111867`*^9, {3.6439575705667076`*^9, 
   3.6439575990183353`*^9}, 3.643958223059028*^9, {3.643958257495998*^9, 
   3.643958276327075*^9}, 3.6439584675330114`*^9, 3.6439585012109375`*^9, 
   3.643958651872555*^9, 3.6439586838833857`*^9, 3.6439590852103405`*^9, 
   3.6439591584635305`*^9, 3.6506184087366686`*^9, 3.6696354133464856`*^9, 
   3.6696354693993893`*^9, 3.669636214903841*^9, 3.6696363254217477`*^9, 
   3.669636595103241*^9, 3.669703425070441*^9, 3.669703667741084*^9, {
   3.669704102709979*^9, 3.669704115486131*^9}, 3.669704531363984*^9, 
   3.669704812720625*^9, 3.6697052388632464`*^9, 3.6698124291835384`*^9, 
   3.669812496843688*^9, 3.66981255238066*^9, 3.669812586427001*^9, 
   3.6698126220208454`*^9, 3.6698126596277065`*^9, 3.6699501673844237`*^9, 
   3.6699504109076242`*^9, 3.669950614725348*^9, 3.669950691187593*^9, {
   3.6699509306391745`*^9, 3.6699509508783555`*^9}, 3.6699517979125953`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"pi", "=."}], ";"}]], "Input",
 CellChangeTimes->{{3.638786166897283*^9, 3.6387861692845216`*^9}}]
}, Open  ]]
},
WindowSize->{900, 503},
WindowMargins->{{0, Automatic}, {57, Automatic}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification->1.100000023841858,
FrontEndVersion->"10.3 for Microsoft Windows (64-bit) (October 9, 2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 164, 2, 78, "Section"],
Cell[746, 26, 248, 4, 32, "Input"],
Cell[997, 32, 896, 17, 53, "Input"],
Cell[1896, 51, 290, 3, 32, "Text"],
Cell[CellGroupData[{
Cell[2211, 58, 1956, 40, 213, "Input"],
Cell[4170, 100, 1377, 22, 33, "Output"]
}, Open  ]],
Cell[5562, 125, 1717, 33, 133, "Input"],
Cell[7282, 160, 193, 5, 32, "Input"],
Cell[7478, 167, 133, 3, 32, "Input"],
Cell[7614, 172, 1475, 32, 220, "Input"],
Cell[9092, 206, 660, 14, 73, "Input"],
Cell[9755, 222, 1738, 33, 180, "Input"],
Cell[11496, 257, 2854, 60, 244, "Input"],
Cell[CellGroupData[{
Cell[14375, 321, 63, 1, 32, "Input"],
Cell[14441, 324, 3831, 56, 100, "Message"],
Cell[18275, 382, 1465, 24, 23, "Message"],
Cell[19743, 408, 1684, 27, 43, "Message"],
Cell[21430, 437, 1467, 24, 23, "Message"],
Cell[22900, 463, 1682, 27, 43, "Message"],
Cell[24585, 492, 1467, 24, 23, "Message"],
Cell[26055, 518, 1573, 26, 23, "Message"]
}, Open  ]],
Cell[27643, 547, 132, 3, 65, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
